home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / proxy14.arj / COPY.PRX next >
Text File  |  1992-06-23  |  365b  |  11 lines
  1. eos="eos";
  2. //channel ch1,ch2;
  3. ch1=channel();
  4. ch2=channel();
  5. task source(right) {right!2;right!3;right!4;right!eos;};
  6. task sink(left;x) {left?x;while (x!=eos) {print x;left?x;}};
  7. task copy(left,right;x) {left?x;while(x!=eos) {right!x;left?x;}
  8.                          right!eos;};
  9. task main() {start source(ch1); start copy(ch1,ch2);start sink(ch2);};
  10. end
  11.